Loading Data
df <- read.csv("C:/Users/Adam/Downloads/insurance.csv")
Q1:
library(ggplot2)
ggplot(df, mapping=aes(region, sex))+
geom_count(colour="blue")

The region with the highest number of observations is the southeast.
This is evident by looking at the plot and seeing the magnitude of the
circles in each region, of which the southeast has 170 observations for
females in the southeast, and 180 observations for males in the same
region.
Q2:
ggplot(df, mapping=aes(x=bmi, y=charges, color=smoker))+
geom_point()+
labs(x="Body Mass Index", y="Dollar Charged")+
geom_smooth(method="lm", aes(group=smoker))+
ggtitle("The link between BMI and Charges: Smokers and non-smokers")

We can conclude many things from the scatter plot above. Firstly, we
can conclude that there is a positive correlation among smokers and body
mass index, where as the bmi increases for the individual, the amount of
insurance charges increases. Furthermore, we can conclude that there are
two sections among where most of the smokers reside; being from
approximately 15 to 30 bmi, and then the amount of charges increases
marginally from 30 to 60bmi. In addition to this, most of the smokers,
with respect to an increasing body mass index, have a drastically lower
amount of insurance charges than those who are smokers, aside from the
few outliers which have higher insurance charges which may be due to
unobservable factors that are not in our dataset.
Q3:
ggplot(df, mapping=aes(x=region, fill=smoker))+
geom_bar()+
coord_flip()+
theme_minimal()+
geom_text(
stat = "count" ,
aes(label=stat(count)),
hjust=1.5)+
scale_fill_brewer(palette="Dark2")

Q4:
library(plotly)
plot_ly(data=df,
x=~bmi,
y=~charges,
color=~region,
type="scatter",
mode="markers")
LS0tDQp0aXRsZTogIkVDT04gMzg4MDogQXNzaWdubWVudCAyIg0KYXV0aG9yOiAiQWRhbSBTYXJkZWxsYSINCg0KZGF0ZTogJ2ByIFN5cy5EYXRlKClgJw0Kb3V0cHV0OiANCiAgaHRtbF9ub3RlYm9vazogDQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZmxvYXQ6IHllcw0KICAgIGRmX3ByaW50OiBwYWdlZA0KICAgIG51bWJlcl9zZWN0aW9uczogdHJ1ZQ0KLS0tDQoNCiMgTG9hZGluZyBEYXRhDQoNCmBgYHtyfQ0KZGYgPC0gcmVhZC5jc3YoIkM6L1VzZXJzL0FkYW0vRG93bmxvYWRzL2luc3VyYW5jZS5jc3YiKQ0KYGBgDQoNCiMgUTE6DQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KZ2dwbG90KGRmLCBtYXBwaW5nPWFlcyhyZWdpb24sIHNleCkpKw0KICBnZW9tX2NvdW50KGNvbG91cj0iYmx1ZSIpDQpgYGANCg0KVGhlIHJlZ2lvbiB3aXRoIHRoZSBoaWdoZXN0IG51bWJlciBvZiBvYnNlcnZhdGlvbnMgaXMgdGhlIHNvdXRoZWFzdC4gVGhpcyBpcyBldmlkZW50IGJ5IGxvb2tpbmcgYXQgdGhlIHBsb3QgYW5kIHNlZWluZyB0aGUgbWFnbml0dWRlIG9mIHRoZSBjaXJjbGVzIGluIGVhY2ggcmVnaW9uLCBvZiB3aGljaCB0aGUgc291dGhlYXN0IGhhcyAxNzAgb2JzZXJ2YXRpb25zIGZvciBmZW1hbGVzIGluIHRoZSBzb3V0aGVhc3QsIGFuZCAxODAgb2JzZXJ2YXRpb25zIGZvciBtYWxlcyBpbiB0aGUgc2FtZSByZWdpb24uDQoNCiMgUTI6DQoNCmBgYHtyfQ0KZ2dwbG90KGRmLCBtYXBwaW5nPWFlcyh4PWJtaSwgeT1jaGFyZ2VzLCBjb2xvcj1zbW9rZXIpKSsNCmdlb21fcG9pbnQoKSsNCiAgbGFicyh4PSJCb2R5IE1hc3MgSW5kZXgiLCB5PSJEb2xsYXIgQ2hhcmdlZCIpKw0KICBnZW9tX3Ntb290aChtZXRob2Q9ImxtIiwgYWVzKGdyb3VwPXNtb2tlcikpKw0KICBnZ3RpdGxlKCJUaGUgbGluayBiZXR3ZWVuIEJNSSBhbmQgQ2hhcmdlczogU21va2VycyBhbmQgbm9uLXNtb2tlcnMiKQ0KYGBgDQoNCldlIGNhbiBjb25jbHVkZSBtYW55IHRoaW5ncyBmcm9tIHRoZSBzY2F0dGVyIHBsb3QgYWJvdmUuIEZpcnN0bHksIHdlIGNhbiBjb25jbHVkZSB0aGF0IHRoZXJlIGlzIGEgcG9zaXRpdmUgY29ycmVsYXRpb24gYW1vbmcgc21va2VycyBhbmQgYm9keSBtYXNzIGluZGV4LCB3aGVyZSBhcyB0aGUgYm1pIGluY3JlYXNlcyBmb3IgdGhlIGluZGl2aWR1YWwsIHRoZSBhbW91bnQgb2YgaW5zdXJhbmNlIGNoYXJnZXMgaW5jcmVhc2VzLiBGdXJ0aGVybW9yZSwgd2UgY2FuIGNvbmNsdWRlIHRoYXQgdGhlcmUgYXJlIHR3byBzZWN0aW9ucyBhbW9uZyB3aGVyZSBtb3N0IG9mIHRoZSBzbW9rZXJzIHJlc2lkZTsgYmVpbmcgZnJvbSBhcHByb3hpbWF0ZWx5IDE1IHRvIDMwIGJtaSwgYW5kIHRoZW4gdGhlIGFtb3VudCBvZiBjaGFyZ2VzIGluY3JlYXNlcyBtYXJnaW5hbGx5IGZyb20gMzAgdG8gNjBibWkuIEluIGFkZGl0aW9uIHRvIHRoaXMsIG1vc3Qgb2YgdGhlIHNtb2tlcnMsIHdpdGggcmVzcGVjdCB0byBhbiBpbmNyZWFzaW5nIGJvZHkgbWFzcyBpbmRleCwgaGF2ZSBhIGRyYXN0aWNhbGx5IGxvd2VyIGFtb3VudCBvZiBpbnN1cmFuY2UgY2hhcmdlcyB0aGFuIHRob3NlIHdobyBhcmUgc21va2VycywgYXNpZGUgZnJvbSB0aGUgZmV3IG91dGxpZXJzIHdoaWNoIGhhdmUgaGlnaGVyIGluc3VyYW5jZSBjaGFyZ2VzIHdoaWNoIG1heSBiZSBkdWUgdG8gdW5vYnNlcnZhYmxlIGZhY3RvcnMgdGhhdCBhcmUgbm90IGluIG91ciBkYXRhc2V0Lg0KDQoNCiMgUTM6DQpgYGB7cn0NCmdncGxvdChkZiwgbWFwcGluZz1hZXMoeD1yZWdpb24sIGZpbGw9c21va2VyKSkrDQogIGdlb21fYmFyKCkrDQogIGNvb3JkX2ZsaXAoKSsNCiAgdGhlbWVfbWluaW1hbCgpKw0KICBnZW9tX3RleHQoDQogICAgc3RhdCA9ICJjb3VudCIgLA0KICAgIGFlcyhsYWJlbD1zdGF0KGNvdW50KSksDQogICAgaGp1c3Q9MS41KSsNCiAgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZT0iRGFyazIiKQ0KYGBgDQoNCiMgUTQ6DQpgYGB7cn0NCmxpYnJhcnkocGxvdGx5KQ0KcGxvdF9seShkYXRhPWRmLA0KICAgICAgICB4PX5ibWksDQogICAgICAgIHk9fmNoYXJnZXMsDQogICAgICAgIGNvbG9yPX5yZWdpb24sDQogICAgICAgIHR5cGU9InNjYXR0ZXIiLA0KICAgICAgICBtb2RlPSJtYXJrZXJzIikNCmBgYA0KDQoNCg0KDQo=